home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / workbench / t.h.e. / rexx / delete.rexx < prev    next >
OS/2 REXX Batch file  |  2000-02-28  |  326b  |  16 lines
  1. /*
  2.    $VER: Delete.rexx 1.1 (06.11.99) Copyright (c) Nils Görs & Luca Danelon.
  3.  
  4.    deletes selected icon(s). I recommend to install script as
  5.    hotkey placed on the [DEL] button.
  6. */
  7.  
  8. options results
  9.  
  10. ADDRESS WORKBENCH
  11.  
  12. GETATTR OBJECT WINDOWS.ACTIVE
  13. activewin = result
  14.  
  15. MENU WINDOW '"' || activewin || '"' INVOKE ICONS.DELETE
  16.